MacTech 1 to 12/MacTech-vol-1-12.toast/Source/MacTech® Magazine/Volume 03 - 1987/03.10 Oct 87/RomRef sources/ROM Data sources/Formal1.asm

Assembly Source File | 1986-08-16 | 28.0 KB | 1,451 lines | [TEXT/MEDT]

; -----
; Data for each toolbox call by Manager
; -----
        STRING_FORMAT   0       NO count in this section

;--AppleTalkData--

id set 9
;ATPAddRsp
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPAddRsp('
    .AbRecH  NOVAR,'abRec)'

;ATPCloseSocket
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPCloseSocket('
    .byte    NOVAR,'atpSocket)'

;ATPGetRequest
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPGetRequest('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;ATPLoad
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPLoad()'

;ATPOpenSocket
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPOpenSocket((AddrBlock) addrRcvd,'
    .byte    VAR,'atpSocket)'

;ATPReqCancel
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPReqCancel('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;ATPRequest
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPRequest('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;ATPResponse
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPResponse('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;ATPRspCancel
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPRspCancel('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;ATPSndRequest
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPSndRequest('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;ATPSndRsp
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPSndRsp('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;ATPUnload
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = ATPUnload()'

;DDPCloseSocket
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = DDPOpenSocket('
    .byte    NOVAR,'theSocket)'

;DDPOpenSocket
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = DDPOpenSocket('
    .byte    VAR,'theSocket, '
    .Ptr     NOVAR,'sktListener)'

;DDPRdCancel
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = DDPRdCancel('
    .AbRecH  NOVAR,'abRec)'

;DDPRead
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = DDPRead('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'retCksumErrs, '
    .Boolean NOVAR,'async)'

;DDPWrite
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = DDPWrite('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'doChecksum, '
    .Boolean NOVAR,'async)'

;GetNodeAddress
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = GetNodeAddress('
    .Integer VAR,'myNode, '
    .Integer VAR,'myNet)'

;IsATPOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'isOpen = IsATPOpen()'

;IsMPPOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'isOpen = IsMPPOpen()'

;LAPCloseProtocol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = LAPCloseProtocol('
    .byte    NOVAR,'theLapType)'

;LAPOpenProtocol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = LAPOpenProtocol('
    .byte    NOVAR,'theLapType, '
    .Ptr     NOVAR,'protoPtr)'

;LAPRdCancel
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = LAPRdCancel('
    .AbRecH  NOVAR,'abRec)'

;LAPRead
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = LAPRead('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;LAPWrite
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = LAPWrite('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;MPPClose
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = MPPClose()'

;MPPOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = MPPOpen()'

;NBPConfirm
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = NBPConfirm('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;NBPExtract
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = NBPExtract('
    .Ptr     NOVAR,'theBuffer, '
    .Integer NOVAR,'numInBuf, '
    .Integer NOVAR,'whichOne, (EntityName *) abEntity, (AddrBlock *) address)'

;NBPLoad
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = NBPLoad()'

;NBPLookup
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = NBPLookup('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;NBPRegister
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = NBPRegister('
    .AbRecH  NOVAR,'abRec, '
    .Boolean NOVAR,'async)'

;NBPRemove
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = NBPRemove((Entity *) abEntity)'

;NBPUnload
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = NBPUnload()'

;--BinDecPackData--
id set 49
;NumToString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'NumToString('
    .long   NOVAR,'theNum, '
    .Str255 VAR,'theString)'

;StringToNum
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StringToNum('
    .Str255 NOVAR,'theString, '
    .long   VAR,'theNum)'

;--ControlData--
id set 59
;DisposeControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DisposeControl('
    .CtlHndl NOVAR,'theCtl)'

;DragControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B     'DragControl('
    .CtlHndl NOVAR,'theCtl, '
    .Pt      VAR,'StartPt, '
    .Rect    VAR,'limitR, '
    .Rect    VAR,'slopR, '
    .Integer NOVAR,'axis)'

;DrawControls
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'DrawControls('
    .WindRec VAR,'theWind)'

;FindControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'part = FindControl('
    .Pt      VAR,'thePt, '
    .WindRec VAR,'theWind, '
    .CtlHndl VAR,'whichCtl)'

;GetCRefCon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long   NOVAR,'data = GetCRefCon('
    .CtlHndl NOVAR,'theCtl)'

;GetCTitle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B       'GetCTitle('
    .CtlHndl NOVAR,'theCtl, '
    .Str255  VAR,'title)'

;GetCtlAction
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Ptr     NOVAR,'proc = GetCtlAction('
    .CtlHndl NOVAR,'theCtl)'

;GetCtlMax
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'max = GetCtlMax('
    .CtlHndl NOVAR,'theCtl)'

;GetCtlMin
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'min = GetCtlMin('
    .CtlHndl NOVAR,'theCtl)'

;GetCtlValue
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'val = GetCtlValue('
    .CtlHndl NOVAR,'theCtl)'

;GetNewControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .CtlHndl NOVAR,'newCtl = GetNewControl('
    .Integer NOVAR,'ID, '
    .WindRec VAR,'theWind)'

;HideControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'HideControl('
    .CtlHndl NOVAR,'theCtl)'

;HiliteControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'HiliteControl('
    .CtlHndl NOVAR,'theCtl, '
    .Integer NOVAR,'state)'

;KillControls
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'KillControls('
    .WindRec VAR,'theWind)'

;MoveControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'MoveControl('
    .CtlHndl NOVAR,'theCtl, '
    .Integer NOVAR,'h, '
    .Integer NOVAR,'v)'

;NewControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .CtlHndl  NOVAR,'newCtl = NewControl('
    .WindRec VAR,'theWind, '
    .Rect    VAR,'boundR, '
    .Str255  VAR,'title, '
    .Boolean NOVAR,'vis, '
    .Integer NOVAR,'val, '
    .Integer NOVAR,'min, '
    .Integer NOVAR,'max, '
    .Integer NOVAR,'procID, '
    .long    NOVAR,'refCon)'

;SetCRefCon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetCRefCon('
    .CtlHndl NOVAR,'theCtl, '
    .long    NOVAR,'refCon)'

;SetCTitle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetCTitle('
    .CtlHndl NOVAR,'theCtl, '
    .Str255  VAR,'title)'

;SetCtlAction
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetCtlAction('
    .CtlHndl NOVAR,'theCtl, '
    .Ptr    NOVAR,'action)'

;SetCtlMax
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetCtlMax('
    .CtlHndl NOVAR,'theCtl, '
    .Integer NOVAR,'max)'

;SetCtlMin
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetCtlMin('
    .CtlHndl NOVAR,'theCtl, '
    .Integer NOVAR,'min)'

;SetCtlValue
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetCtlValue('
    .CtlHndl NOVAR,'theCtl, '
    .Integer NOVAR,'val)'

;ShowControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ShowControl('
    .CtlHndl NOVAR,'theCtl)'

;SizeControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SizeControl('
    .CtlHndl NOVAR,'theCtl, '
    .Integer NOVAR,'h, '
    .Integer NOVAR,'v)'

;TestControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'part = TestControl('
    .CtlHndl NOVAR,'theCtl, '
    .Pt      VAR,'thePt)'

;TrackControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'part = TrackControl('
    .CtlHndl NOVAR,'theCtl, '
    .Pt      VAR,'thePt, '
    .Ptr     NOVAR,'action)'

;--DeskData--
id set 99
;CloseDeskAcc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'CloseDeskAcc('
    .Integer NOVAR,' refnum)'

;OpenDeskAcc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'ignore = OpenDeskAcc('
    .Str255  VAR,'theAcc)'

;SystemClick
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SystemClick('
    .EvtRec  VAR,'theEvent, '
    .WindRec VAR,'theWind)'

;SystemEdit
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'DAActive = SystemEdit('
    .Integer NOVAR,' editCmd)'

;SystemEvent
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'MacDidIt = SystemEvent('
    .EvtRec  VAR,'theEvent)'

;SystemMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SystemMenu('
    .long   NOVAR,' mResult)'

;SystemTask
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SystemTask()'

;--DeviceData--
id set 119
;CloseDriver
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = CloseDriver('
    .Integer NOVAR,'refNum)'

;Control
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = Control('
    .Integer NOVAR,'refNum, '
    .Integer NOVAR,'csCode, '
    .Ptr     NOVAR,'csParm)'

;FSRead
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = FSRead('
    .Integer NOVAR,'refNum, '
    .long    VAR,'cnt, '
    .Ptr     NOVAR,'buff)'

;FSWrite
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = FSWrite('
    .Integer NOVAR,'refNum, '
    .long    VAR,'cnt, '
    .Ptr     NOVAR,'buff)'

;GetDCtlEntry
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle NOVAR,'DCtlHandle = GetDCtlEntry('
    .Integer NOVAR,'refNum)'

;KillIO
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = KillIO('
    .Integer NOVAR,'refNum)'

;OpenDriver
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = OpenDriver('
    .Str255  VAR,'name, '
    .Integer VAR,'refNum)'

;PBClose
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer  NOVAR,'err = PBClose('
    .ParamBlk VAR,'thePB, '
    .Boolean   NOVAR,'asynch)'

;PBControl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer  NOVAR,'err = PBControl('
    .ParamBlk VAR,'thePB, '
    .Boolean   NOVAR,'asynch)'

;PBKillIO
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer  NOVAR,'err = PBKillIO('
    .ParamBlk VAR,'thePB, '
    .Boolean   NOVAR,'asynch)'

;PBOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer  NOVAR,'err = PBOpen('
    .ParamBlk VAR,'thePB, '
    .Boolean   NOVAR,'asynch)'

;PBRead
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer  NOVAR,'err = PBRead('
    .ParamBlk VAR,'thePB, '
    .Boolean   NOVAR,'asynch)'

;PBStatus
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer  NOVAR,'err = PBStatus('
    .ParamBlk VAR,'thePB, '
    .Boolean   NOVAR,'asynch)'

;PBWrite
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer  NOVAR,'err = PBWrite('
    .ParamBlk VAR,'thePB, '
    .Boolean   NOVAR,'asynch)'

;Status
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = Status('
    .Integer NOVAR,'refNum, '
    .Integer NOVAR,'csCode, '
    .Ptr     NOVAR,'csParm)'

;--DialogData--
id set 149
;Alert
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'item = Alert('
    .Integer NOVAR,'alertID, '
    .Ptr     NOVAR,'filter)'

;CautionAlert
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'item = CautionAlert('
    .Integer NOVAR,'alertID, '
    .Ptr     NOVAR,'filter)'

;CloseDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CloseDialog('
    .DlogRec VAR,'dPtr)'

;CouldAlert
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CouldAlert('
    .Integer NOVAR,'ID)'

;CouldDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CouldDialog('
    .Integer NOVAR,'ID)'

;DialogSelect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'youDo = DialogSelect('
    .EvtRec  VAR,'theEvent, '
    .DlogRec VAR,'dPtr, '
    .Integer VAR,'item)'

;DisposDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DisposDialog('
    .DlogRec VAR,'dPtr)'

;DlgCopy
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DlgCopy('
    .DlogRec VAR,'dPtr)'

;DlgCut
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DlgCut('
    .DlogRec VAR,'dPtr)'

;DlgDelete
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DlgDelete('
    .DlogRec VAR,'dPtr)'

;DlgPaste
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DlgPaste('
    .DlogRec VAR,'dPtr)'

;DrawDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DrawDialog('
    .DlogRec VAR,'dPtr)'

;ErrorSound
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ErrorSound('
    .Ptr    NOVAR,'soundProc)'

;FreeAlert
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FreeAlert('
    .Integer NOVAR,'ID)'

;FreeDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FreeDialog('
    .Integer NOVAR,'ID)'

;GetAlrtStage
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'stage = GetAlrtStage()'

;GetDItem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetDItem('
    .DlogRec VAR,'dPtr, '
    .Integer NOVAR,'itemNo, '
    .Integer VAR,'type, '
    .Handle  VAR,'cltH, '
    .Rect    VAR,'itemR)'

;GetIText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetIText('
    .Handle NOVAR,'item, '
    .Str255 VAR,'theStr)'

;GetNewDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .DlogRec VAR,'dPtr = GetNewDialog('
    .Integer NOVAR,'ID, '
    .Ptr     NOVAR,'dStor, '
    .WindRec VAR,'behind)'

;InitDialogs
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'InitDialogs('
    .Ptr    NOVAR,'resumeProc)'

;IsDialogEvent
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'dlogDo = IsDialogEvent('
    .EvtRec  VAR,'theEvent)'

;ModalDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ModalDialog('
    .Ptr     NOVAR,'filter, '
    .Integer VAR,'item)'

;MyFilter
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'MDIgnore = MyFilter('
    .DlogRec VAR,'dPtr, '
    .EvtRec  VAR,'theEvent, '
    .Integer VAR,'item)'

;MyItem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'MyItem('
    .WindRec VAR,'theWind, '
    .Integer NOVAR,'item)'

;MySound
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'MySound('
    .Integer NOVAR,'soundNo)'

;NewDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .DlogRec VAR,'dPtr = NewDialog('
    .Ptr     NOVAR,'dStor, '
    .Rect    VAR,'boundsR, '
    .Str255  VAR,'title, '
    .Boolean NOVAR,'vis, '
    .Integer NOVAR,'procID, '
    .WindRec VAR,'behind, '
    .Boolean NOVAR,'goAway, '
    .long    NOVAR,'refCon, '
    .Handle  NOVAR,'itemL)'

;NoteAlert
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'item = NoteAlert('
    .Integer NOVAR,'alertID, '
    .Ptr     NOVAR,'filter)'

;ParamText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ParamText('
    .Str255 VAR,'param1, '
    .Str255 VAR,'param2, '
    .Str255 VAR,'param3, '
    .Str255 VAR,'param4)'

;ResetAlrtStage
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ResetAlrtStage()'

;SelIText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SelIText'
    .DlogRec VAR,'dPtr, '
    .Integer NOVAR,'itemNo, '
    .Integer NOVAR,'strtSel, '
    .Integer NOVAR,'endSel)'

;SetDAFont
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetDAFont('
    .Integer NOVAR,'fontNo)'

;SetDItem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetDItem('
    .DlogRec VAR,'dPtr, '
    .Integer NOVAR,'itemNo, '
    .Integer NOVAR,'iType, '
    .Handle  NOVAR,'itemH, '
    .Rect    VAR,'boxR)'

;SetIText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetIText('
    .Handle  NOVAR,'itemH, '
    .Str255  VAR,'text)'

;StopAlert
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'item = StopAlert('
    .Integer NOVAR,'alertID, '
    .Ptr     NOVAR,'filter)'

;--EventData--
id set 199
;Button
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'Down = Button()'

;EventAvail
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'isAvail = EventAvail('
    .Integer NOVAR,'eventmask, '
    .EvtRec  VAR,'theEvent)'

;GetCaretTime
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long   NOVAR,'blinks = GetCaretTime()'

;GetDblTIme
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long   NOVAR,'dblClk = GetDblTIme()'

;GetKeys
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetKeys(&keyRec)'

;GetMouse
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetMouse('
    .Pt     VAR,'thePt)'

;GetNextEvent
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetNextEvent('
    .Integer NOVAR,'eventmask, '
    .EvtRec  VAR,'theEvent)'

;StillDown
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'isDown = StillDown()'

;TickCount
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long   NOVAR,'when = TickCount()'

;WaitMouseUp
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'isDown = WaitMouseUp()'

;--FileData--
id set 219
;Allocate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = Allocate('
    .Integer NOVAR,'refNum, '
    .long    VAR,'count)'

;Create
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = Create('
    .Str255  VAR,'fName, '
    .Integer NOVAR,'vRefNum, '
    .type    NOVAR,'creator, '
    .type    NOVAR,'fType)'

;Eject
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = Eject('
    .Str255  VAR,'volName, '
    .Integer NOVAR,'vRefNum)'

;FInitQueue
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'FInitQueue()'

;FlushVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = FlushVol('
    .Str255  VAR,'volName, '
    .Integer NOVAR,'vRefNum)'

;FSClose
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = FSClose'
    .Integer NOVAR,'refNum)'

;FSDelete
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = FSDelete('
    .Str255  VAR,'fName, '
    .Integer NOVAR,'vRefNum)'

;FSOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = FSOpen('
    .Str255  VAR,'fName, '
    .Integer NOVAR,'vRefNum, '
    .Integer VAR,'refNum)'

;FSRead
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = FSRead('
    .Integer NOVAR,'refNum, '
    .long    VAR,'cnt, '
    .byte    VAR,'buff)'

;FSWrite
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = FSWrite('
    .Integer NOVAR,'refNum, '
    .long    VAR,'cnt, '
    .byte    VAR,'buff)'

;GetDrvQHdr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .QHdrRec VAR,'qHdr = GetDrvQHdr()'

;GetEOF
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = GetEOF('
    .Integer NOVAR,'refNum, '
    .long    VAR,'logEOF)'

;GetFInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = GetFInfo('
    .Str255  VAR,'fName, '
    .Integer NOVAR,'vRefNum, '
    .FInfo   VAR,'fndrInfo)'

;GetFPos
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = GetFPos('
    .Integer NOVAR,'refNum, '
    .long    VAR,'fPos)'

;GetFSQHdr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .QHdrRec VAR,'qHdr = GetFSQHdr()'

;GetVCBQHdr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .QHdrRec VAR,'qHdr = GetVCBQHdr()'

;GetVInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = GetVInfo('
    .Integer NOVAR,'drvNo, '
    .Str255  VAR,'volName, '
    .Integer VAR,'vRefNum, '
    .long    VAR,'freeBytes)'

;GetVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = GetVol('
    .Str255  VAR,'volName, '
    .Integer VAR,'vRefNum)'

;GetVRefNum
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = GetVRefNum('
    .Integer NOVAR,'pathNo, '
    .Integer VAR,'vRefNum)'

;OpenRF
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = OpenRF('
    .Str255  VAR,'fName, '
    .Integer NOVAR,'vRefNum, '
    .Integer VAR,'refNum)'

;PBAllocate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBAllocate('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBClose
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBClose('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBCreate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBCreate('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBDelete
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBDelete('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBEject
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PBEject('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBFlushFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBFlushFile('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBFlushVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PBFlushVol('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBGetEOF
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBGetEOF('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBGetFInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBGetFInfo('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBGetFPos
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBGetFPos('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBGetVInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBGetVInfo('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBGetVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBGetVol('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBMountVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PBMountVol('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBOffLine
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PBOffLine('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PBOpen('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBOpenRF
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PBOpenRF('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBRead
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBRead('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBRename
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBRename('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBRstFLock
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBRstFLock('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBSetEOF
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBSetEOF('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBSetFInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBSetFInfo('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBSetFLock
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBSetFLock('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBSetFPos
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBSetFPos('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBSetFVers
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBSetFVers('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBSetVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBSetVol('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBUnmountVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBUnmountVol('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;PBWrite
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PBWrite('
    .ParamBlk VAR,'thePB, '
    .Boolean  NOVAR,'asynch)'

;Rename
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = Rename('
    .Str255  VAR,'oldName, '
    .Integer NOVAR,'vRefNum, '
    .Str255  VAR,'newName)'

;RstFlock
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = RstFlock('
    .Str255  VAR,'fName, '
    .Integer NOVAR,'vRefNum)'

;SetEOF
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = SetEOF('
    .Integer NOVAR,'refNum, '
    .long    NOVAR,'logEOF)'

;SetFInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = SetFInfo('
    .Str255  VAR,'fName, '
    .Integer NOVAR,'vRefNum, '
    .FInfo   VAR,'fndrInfo)'

;SetFLock
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = SetFLock('
    .Str255  VAR,'fName, '
    .Integer NOVAR,'vRefNum)'

;SetFPos
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = SetFPos('
    .Integer NOVAR,'refNum, '
    .Integer NOVAR,'posMode, '
    .long    NOVAR,'offset)'

;SetVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = SetVol('
    .Str255  VAR,'vName, '
    .Integer NOVAR,'vRefNum)'

;UnmountVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = UnmountVol('
    .Str255  VAR,'vName, '
    .Integer NOVAR,'vRefNum)'